Private Obsession 3: Sophia/Private Obsession 3: Sophia.iso/files/sshots.dxr/00041.ls

Text File | 1995-04-08 | 699 b | 31 lines

on startMovie
  global startColorDepth
  set the soundEnabled to 1
  set the soundLevel to 7
  updateStage()
end

on setvolume
  global where, currentvol
  set where to (the mouseH - the left of sprite 33) * 1.0
  set currentvol to where / the width of sprite 33 * 1.0 * 255
  set the volume of sound 1 to integer(currentvol)
  set the volume of sound 2 to integer(currentvol)
  set the locH of sprite 36 to the mouseH + the width of cast 185
  updateStage()
end

on wait howlong
  startTimer()
  repeat while the timer < howlong
    nothing()
  end repeat
end

on stopMovie
  global startColorDepth
  if the colorDepth <> startColorDepth then
    set the colorDepth to startColorDepth
  end if
end